COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	EXPR FOO()
C00003 ENDMK
C⊗;
EXPR FOO();
	BEGIN
	NEW GCT,MT,CNT;
	INC(EVAL <'INPUT, '(SET RWW), '(NGBREL.FOL)>, NIL);
	CNT ← 0;
	GCT ← GCTIME();
	MT  ← TIME();
	ERRSET(WHILE PROG2(SCANNER(),CNT←ADD1 CNT,PRINC ?!SCANVAL) DO NIL, NIL);
	PRINT(TIME()-MT);
	PRINT(GCTIME()-GCT);
	PRINT(CNT);
	END;
_EOF_